0 IFJ=0THENCLEAR,,100:CLS:SCREEN7,0,0:FORT=0TO99:R=INT(RND*255):DEFGR$(T)=R,R,R,R,R,R,R,R:LOCATE(T MOD20)*2,(T@20)*2,0:PRINTGR$(T):NEXT:FORT=12TO316STEP16:LINE(T,0)-(T,76),1:NEXT:FORT=12TO80STEP16:LINE(0,T)-(320,T),1:NEXT:J=1:GOTOELSEA=STICK(0):S=STRIG(0)
1 X=X+2*(A>5ANDX>1)-2*(A>1ANDA<5ANDX<37):Y=Y+2*((A=8ORA=1ORA=2)ANDY>1)-2*(A>3ANDA<7ANDY<7):W$=CHR$(SCREEN(X,Y)):PSET(X,Y)W$,2:PLAY"L10P":PSET(X,Y)W$,7:ATTRB0,1:LOCATE0,15:PRINTUSING"En (##;#): CHR$(###) ==> %%";X,Y,SCREEN(X,Y),W$;:IFSTHENATTRB,0ELSE0